! sidelite_panel_D  /rewritten by VL 2/28/94/
! internal macro: sidelite_frame, door_int_frame
! width, height, int. frame thickness(=C/2),
! int. frame width(=D/2),
! e=glass material*** E=0-transparent,
! f=no. of vert. panes

call sidelite_frame a, b, c, d
add d,d,1/2"
call door_int_frame a-2*d, b-2*d, c-1", d
add d,d,0
call double_grille a-4*d,b-4*d,(c-1"-0.004)/2,d,1,f   !***e=1,f: no. of horiz/vert. panes
addz 0.004+(c-1"-0.004)/2
call double_grille a-4*d,b-4*d,(c-1"-0.004)/2,d,1,f   !***e=1,f: no. of horiz/vert. panes
body 1
if e<0.1 then 1
add -d,-d,-0.004
material e                                      !***Glass material
prism_ 4,0.004,
d, d, 15,
d, b-3*d,15,
a-3*d, b-3*d, 15,
a-3*d, d, 15
body 1
1:
end